home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / varie / glosstsk.lha / GlossTask1_71DEMO / Install_to_Harddisk < prev    next >
Text File  |  1997-01-08  |  2KB  |  126 lines
  1. ; GlossTask install to harddisk
  2. ; Håkan Parting 28 Jan 1996
  3.  
  4. (working "Setting up installation. Please wait...")
  5. ;    (run "copy Glos#? to ram:GlossT")
  6. ;    (run "copy Catalogs to ram:GlossT/catalogs ALL")
  7. ;    (run "copy Docs to ram:GlossT/docs ALL")
  8. ;    (run "copy Vocables to ram:GlossT/Vocables ALL")
  9. ;    (run "copy s to ram:GlossT/s ALL")
  10.     (run "copy #? to ram:GlossT ALL")
  11.     (run "delete ram:GlossT/Install_#?")
  12. (complete 10)
  13. (set glos-dest
  14.     (askdir
  15.         (prompt "Where would you like to install GlossTask?\nThe directory will be created automatically.")
  16.             (help @askdir-help)
  17.         (default @default-dest)
  18.     )
  19. )
  20.  
  21. (makedir (cat glos-dest "/GlossTask" )
  22.     (infos)
  23. )
  24. (set glos-dest (cat glos-dest "/GlossTask" ))
  25. (complete 20)
  26. (working "Installing GlossTask program...")
  27.     (copyfiles
  28.         (help @copyfiles-help)
  29.         (source "ram:GlossT/GlossTask")
  30.         (dest glos-dest )
  31.         (infos)
  32.     )
  33.  
  34. (complete 30)
  35.     (copyfiles
  36.         (help @copyfiles-help)
  37.         (source "ram:GlossT/Glos_Settings")
  38.         (dest glos-dest)
  39.         (infos)
  40.     )
  41.  
  42.     (copyfiles
  43.         (help @copyfiles-help)
  44.         (source "ram:GlossT/Läs_mig_nu!")
  45.         (dest glos-dest)
  46.         (infos)
  47.     )
  48. (complete 40)
  49.     (copyfiles
  50.         (help @copyfiles-help)
  51.         (source "ram:GlossT/Readme_first")
  52.         (dest glos-dest)
  53.         (infos)
  54.     )
  55.   
  56.     (copyfiles
  57.         (help @copyfiles-help)
  58.         (source "ram:GlossT/WB2.0Users_read_this!!")
  59.         (dest glos-dest)
  60.         (infos)
  61.     )
  62.  
  63. (complete 50)
  64.     (copyfiles
  65.         (help @copyfiles-help)
  66.         (source "ram:GlossT/AGuideConv")
  67.         (dest glos-dest)
  68.     )
  69.  
  70.     (copyfiles
  71.         (help @copyfiles-help)
  72.         (source "Ram:GlossT/AguideConv.doc")
  73.         (dest glos-dest)
  74.         (infos)
  75.     )
  76.  
  77. (complete 60)
  78.         (copyfiles
  79.         (prompt "Do you want to install the vocable-lists?")
  80.         (help @copyfiles-help)
  81.         (source "ram:GlossT/Vocables")
  82.         (dest (cat glos-dest "/Vocables" ))
  83.         (all)
  84.         (confirm)
  85.     )
  86.     
  87.  
  88. (complete 70)
  89.  
  90. (working "Installing documentation")
  91.     (copyfiles
  92.         (prompt "Which documentation do you want to install?")
  93.         (help @copyfiles-help)
  94.         (source "ram:GlossT/docs")
  95.         (dest (cat glos-dest "/Docs" ))
  96.         (all)
  97.         (infos)
  98.         (confirm)
  99.     )
  100.  
  101. (complete 80)
  102. (working "Installing local-translations")
  103.  
  104. (copyfiles
  105.         (prompt "Which language do you want to install?")
  106.         (help @copyfiles-help)
  107.         (source "ram:GlossT/catalogs")
  108.         (dest (cat glos-dest "/Catalogs" ))
  109.         (choices "Svenska")
  110.         (confirm)
  111.     )
  112.  
  113. (complete 90)
  114. (copyfiles
  115.     (prompt "Installing config-file to S: directory")
  116.     (help @copyfiles-help)
  117.     (source "ram:GlossT/s/GlossTask.config" )
  118.     (dest "S:")
  119.     (Confirm)
  120. )
  121.  
  122. (working "Cleaning up..")
  123.     (run "delete ram:GlossT ALL")
  124. (complete 100)
  125. (exit)
  126.